home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 38 / Tiger_Disk_038_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende (.txt) next >
Commodore BASIC  |  2023-02-26  |  469b  |  14 lines
  1. 2 print"[147]"
  2. 3 print"     hey!    [157]";:poke53281,.:
  3. 4 fora=1to500:next:print"[154]es  [157]";
  4. 5 forb=1to500:next:print"ist   [157]";
  5. 6 forc=1to500:next:print"[129]soweit...  [157]";:ti$="000003":wait161,1
  6. 9 poke53280,.:poke53281,.:printchr$(147)
  7. 10 poke646,int(rnd(0)*15)+1:forc=0to5
  8. 11 t$="*   hier hat die disk ihr ende   *****     ":nextc
  9. 12 fori=1to len(t$):print"  "chr$(20)tab(6)mid$(t$,i,1):ti$="000004":wait161,1
  10. 13 poke53280,2:::::poke53280,0:
  11. 15 for p=oto10:nextp:nexti
  12. 16 print"[147]                           [159]c[129]i[158]a[153]o!":
  13. 17 poke161,0:poke162,0:wait161,1:goto9
  14.